home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Reqs / ReqDemo.e < prev    next >
Encoding:
Text File  |  1994-11-27  |  619 b   |  21 lines
  1. /* Une autre démo pour savoir comment utiliser des bibliothèques en E.
  2.    Une requête de la req.library.                                      */
  3.  
  4. MODULE 'Req'
  5.  
  6. PROC main()
  7.   IF reqbase:=OpenLibrary('req.library',2)
  8.     IF request('C'est une requête standard ...','Positif','Négatif')
  9.       request('Je l\aavais deviné ...','Pour sûr!','Ben voyons!')
  10.     ELSE
  11.       request('Soyez plus positif!','J\aessaie','Pourquoi?')
  12.     ENDIF
  13.     CloseLibrary(reqbase)
  14.   ELSE
  15.     WriteF('Ne peut ouvrir la req.library!\n')
  16.   ENDIF
  17. ENDPROC
  18.  
  19. PROC request(messy,yes,no)
  20. ENDPROC TextRequest([messy,0,0,0,yes,no,'Hein?',0,0,$2FFFF,0,0])
  21.